Public Class Sprite
    Protected imgBmp As Bitmap
    Protected ptLocation As Point

    Public Property location() As Point
        Get
            Return ptLocation
        End Get
        Set(ByVal value As Point)
            ptLocation = value
        End Set
    End Property

    Public Property Bitmap() As Bitmap

        Get
            Return imgBmp
        End Get
        Set(ByVal value As Bitmap)
            imgBmp = value
        End Set
    End Property

    Public Sub New(ByVal imagePath As String, ByVal location As Point, ByVal transparentColor As Color)
        Me.imgBmp = New Bitmap(imagePath)
        Me.location = location
        Me.imgBmp.MakeTransparent(transparentColor)
    End Sub

    Public Sub Draw(ByRef e As System.Windows.Forms.PaintEventArgs)
        e.Graphics.DrawImage(imgBmp, location)
    End Sub
End Class
